home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
util
/
appshl
/
apppring.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-08-10
|
3KB
|
103 lines
AppPrinting
AppName
Form1,
PrintingLbl
Printing
DocumentLbl
CancelCmd
Cancel
StartPrintTimer
CancelCmd_Click
pABORT
true6
CancelPrintZ
Form_Click
Form_LoadE
PrintLine
HeaderLine.
PageSize
LineSpace
LinesPerPage}
LineLength
CurrentLinec
PageInfo
TextMetricD
printerACTIONO
DocumetName
Captionc
DocName
false
Screen
MousePointer
NORMAL
GetTextMetrics
Printer!
tmHeight
tmExternalLeading
GetDeviceCapsr
VERTRES
PageNumber
SetActiveWindow
PrinterHEADER
delay_itS
Pagee
AppPrinting
DocumetLblU
App_FileName
PrintingLblL
DocumentLbl_Click
CR_Indexj
App_Data
CRLFX
CR_End
IndexStart
IndexEnd
App_PrintCopyNumber
DocumentLbl
Modal:
MODELESS-
CurrentX
CurrentY
FontName
Fonts
Height
LineSpae
ScaleMode
PrinterScaleHeight
ScaleHeight
PrintData
PrintingLbl_Click
StartPrintTimer
Enabled
StartPrintTimer_Timer
App_PrintCancel
Remove_Items_from_Sysmenu
Center_DialogBox_in_Form
AppMain
Place_DialogBox_in_Forma
APP_NAME
pause
PrintDataError
ExitPrintData
MB_ICONEXCLAMATION
SaveFile
IDCANCEL
offers
CancelCmd_Click
PrintData
This routine will print a file to the DEFAULT printer. The dialog is
modal but still allowing the user to CANCEL the print. The routine
uses VB functions to determine page size for page breaks. A fudge of
one less line is used to protect for VB errors with LaserJet III's.
Determine the available space on the printer page
-1 is fudge
Page:
Printing Page : 1"
Allow the user to cancel the printn
Printing has been cancelled.
Printing Page :
Cannot print;"
check to ensure the printer is installed correctly and your disk has sufficient available space.
Form_Load
StartPrintTimer_Timer